www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Function/Function_Down.asp
<% action=Request.QueryString ("Action") Select Case Lcase(action) Case "delall" Call dell_colume() Case "add" Call add_colume() Case "update" Call update_colume() End Select Sub dell_colume ID=trim(request("chk")) If ID="" Then response.write"<script language=javascript>alert('没有选择数据');history.go(-1);</script>":response.End sql="delete from Idea_Down where ID in("&ID&")" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据删除成功');location.href='Admin_Down.asp';</script>" End Sub Sub add_colume DownName=trim(request("DownName")) SortID=trim(request("Sort")) Accmode=trim(request("Accmode")) Language=trim(request("Language")) Approof=trim(request("Approof")) FileUrl=trim(request("FileUrl")) FileSize=trim(request("FileSize")) SoftPic=trim(request("pic")) sSoftPic=trim(request("spic")) Content=trim(request("Content")) if(trim(request("IsShow"))<>"") then IsShow=1 else IsShow=0 end if sql="insert into Idea_Down([DownName],[SortID],[Accmode],[Language],[Approof],[FileUrl],[FileSize],[SoftPic],[sSoftPic],[Content],[IsShow]) values('"&DownName&"',"&SortID&",'"&Accmode&"','"&Language&"','"&Approof&"','"&FileUrl&"','"&FileSize&"','"&SoftPic&"','"&sSoftPic&"','"&Content&"','"&IsShow&"')" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据添加成功');location.href='Admin_Down.asp';</script>" End Sub Sub update_colume ID=trim(request("ID")) DownName=trim(request("DownName")) SortID=trim(request("Sort")) Accmode=trim(request("Accmode")) Language=trim(request("Language")) Approof=trim(request("Approof")) FileUrl=trim(request("FileUrl")) FileSize=trim(request("FileSize")) SoftPic=trim(request("pic")) sSoftPic=trim(request("spic")) Content=trim(request("Content")) if(trim(request("IsShow"))<>"") then IsShow=1 else IsShow=0 end if sql="update Idea_Down set [DownName]='"&DownName&"',[SortID]="&SortID&",[Accmode]='"&Accmode&"',[Language]='"&Language&"',[Approof]='"&Approof&"',[FileUrl]='"&FileUrl&"',[FileSize]='"&FileSize&"',[SoftPic]='"&SoftPic&"',[sSoftPic]='"&sSoftPic&"',[Content]='"&Content&"',[IsShow]='"&IsShow&"' where ID="&ID&"" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据更新成功');location.href='Admin_Down.asp';</script>" End Sub Function Inf_Count() sql="select * from Idea_Down" set rs=idea.exec(sql,1) Inf_Count=rs.recordcount rs.close set rs=nothing End Function %>